﻿' •———————————————————————————————————————————————————————————————————————•
' | Copyright © 2011 Robert McGinley                                      |
' |                                                                       |
' | This program is free software: you can redistribute it and/or modify  |
' | it under the terms of the GNU General Public License as published by  |
' | the Free Software Foundation, either version 3 of the License, or     |
' | (at your option) any later version.                                   |
' |                                                                       |
' | This program is distributed in the hope that it will be useful,       |
' | but WITHOUT ANY WARRANTY; without even the implied warranty of        |
' | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         |
' | GNU General Public License for more details.                          |
' |                                                                       |
' | You should have received a copy of the GNU General Public License     |
' | along with this program.  If not, see <http://www.gnu.org/licenses/>. |
' •———————————————————————————————————————————————————————————————————————•

Module MiscFunctions
    ' Magical error message box :) 
    '//////////////////////////////////////////////////
    ' Method:    ErrorMessage
    ' FullName:  MiscFunctions.ErrorMessage
    ' Access:    public 
    ' Returns:   MessageBox with error
    ' Parameter: ByRef ex
    ' Parameter: ByVal errorText As String
    ' Parameter: Optional ByVal errorTitle As String Error"
    '//////////////////////////////////////////////////
    Public Sub ErrorMessage(Optional ByVal errorText As String = "An error has occurred", Optional ByVal errorTitle As String = "Error")
        Dim msgBoxTitle As String
        Dim msgBoxText As String = Trim(errorText)
        Dim msgBoxButton = MessageBoxButton.OK + MsgBoxStyle.Exclamation
        Dim msgBoxImage = MessageBoxImage.Error
        msgBoxTitle = Trim(errorTitle)
        Dim MsgBoxResult = MsgBox(msgBoxText, msgBoxButton, msgBoxTitle)
    End Sub

    Public Sub ExceptionMessage(ByRef ex As Exception, Optional ByVal errorText As String = "An error has occurred", Optional ByVal errorTitle As String = "Error")
        Dim msgBoxTitle As String
        Dim msgBoxText As String = Trim(errorText)
        Dim msgBoxButton = MessageBoxButton.OK + MsgBoxStyle.Exclamation
        Dim msgBoxImage = MessageBoxImage.Error
        msgBoxTitle = Trim(errorTitle)
        Dim MsgBoxResult = MsgBox(msgBoxText, msgBoxButton, msgBoxTitle)
    End Sub


End Module
